extern int clstp_(integer *klog, doublereal *cond, integer *istat);
extern E_f ran_(integer *k);
/*:ref: i1mach_ 4 1 4 */
/*:ref: dcopy_ 14 5 4 7 4 7 4 */
/*:ref: dscal_ 14 4 4 7 7 4 */
/*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
/*:ref: ddot_ 7 5 4 7 4 7 4 */
/*:ref: dnrm2_ 7 3 4 7 4 */
/*:ref: dswap_ 14 5 4 7 4 7 4 */
/*:ref: wnnls_ 14 12 7 4 4 4 4 4 7 7 7 4 4 7 */
/*:ref: lsei_ 14 13 7 4 4 4 4 4 7 7 7 7 4 7 4 */
